home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / INSTALL / L_RALLY / OLDZIP / L_RALLY.EXE / Rally.dxr / 00006_prépareDébut.ls < prev    next >
Encoding:
Text File  |  1998-01-23  |  1.0 KB  |  37 lines
  1. on exitFrame
  2.   global sGame1, laGameChoisie, nomPartie
  3.   set sGame1 to 12
  4.   if voidp(nomPartie) then
  5.     set enCours to 1
  6.     set laGameChoisie to 1
  7.   else
  8.     set enCours to the value of char 5 of nomPartie
  9.     set laGameChoisie to the value of char 5 of nomPartie
  10.   end if
  11.   repeat with i = sGame1 + 12 to sGame1 + 17
  12.     puppetSprite(i, 1)
  13.     set the visible of sprite i to 1
  14.   end repeat
  15.   puppetSprite(32, 1)
  16.   set the visible of sprite (sGame1 + 11 + enCours) to 0
  17.   set the locH of sprite 32 to the locH of sprite (sGame1 + enCours - 1)
  18.   updateStage()
  19.   repeat with g = 1 to 6
  20.     set laGame to value(the text of member g of castLib "LRdata")
  21.     set cpt to 0
  22.     repeat with i = 1 to 30
  23.       if getAt(laGame, i) <> 27 then
  24.         set cpt to cpt + 1
  25.       end if
  26.     end repeat
  27.     set leText to EMPTY & RETURN & "puzzles solved"
  28.     put string(cpt) into line 1 of leText
  29.     if cpt < 2 then
  30.       put "puzzle" into word 1 of line 2 of leText
  31.     end if
  32.     set nom to "score" & g
  33.     set the text of field nom to leText
  34.   end repeat
  35.   updateStage()
  36. end
  37.